10 IFA=0THENA=1:LOAD"BAS.AID.MSP*",8,1
20 POKE53280,15:POKE53281,15:PRINTCHR$(14):PRINTCHR$(8)
30 PRINT"[147]"TAB(14)"[185][185][185][185][185][185][185][185][185][185][185]"
40 PRINTTAB(14)" [194][193][211][201][195] [193][201][196] ":PRINTTAB(14)"[183][183][183][183][183][183][183][183][183][183][183]"
50 PRINTCHR$(17)SPC(9)"COMMODORE 64 BASIC AID"
60 PRINTCHR$(17)SPC(12)"BY ROBIN FRANZEL"
70 PRINTCHR$(17)SPC(5)"ADDS RENUM, FIND, AND CHANGE"
80 PRINTCHR$(17)SPC(8)"TO YOUR BASIC COMMANDS"
90 PRINT"[144][193][206][204][197][201][212][213][206][199] ?"
100 GETA$:IFA$<>"J"ANDA$<>"N"THEN100
110 IFA$="J"THENGOSUB170
120 PRINT"[147][194][193][211][201][195][160][193][201][196] STARTEN ?"
130 GETA$:IFA$<>"J"ANDA$<>"N"THEN130
140 PRINTCHR$(9)
150 IFA$="N"THENPRINT"[147][211]TART MIT":PRINT"SYS50176[145]":SYS42115
160 SYS50176:NEW
170 PRINT"[147]           [194][193][211][201][195] [193][201][196] [194][197][198][197][200][204][197]  "
180 PRINT"[210][197][206][213][205] [146]- [198]ILE NEU NUMERIEREN. - [206]ORMAL:"
190 PRINT"        [211]TART BEI 10 - [193]BSTAND = 10"
200 PRINT"[211]YNTAX : [210][197][206][213][205] (S.O.) ODER"
210 PRINT"         [210][197][206][213][205] <[211]TARTZEILE>,<[193]BSTAND>"
220 PRINT"  (Z.[194].: [210][197][206][213][205]100,1)"
230 PRINT"----------------------------------------";
240 PRINT"[198][201][206][196] [146]- FINDET [211]TRINGS (ODER [214]ARIABLEN)"
250 PRINT"       IM GESAMTEN [208]ROGRAMM."
260 PRINT"
270 [153]"(null)YNTAX : ASCRIGHT$(null)STR$ /(null)TRING/   ODER"
280 [153]"         ASCRIGHT$(null)STR$ "[199](34)"(null)TRING"[199](34)
290 [153]"  (Z.PEEK.: ASCRIGHT$(null)STR$/ATN=/ -< ASCRIGHT$(null)STR$"[199](34)"HAUS"[199](34)" ETC."
300 [153]"----------------------------------------";
310 [153]"LENLEFT$ATN(null)CHR$VAL WAIT- AENDERT (null)TRINGS (ODER (null)ARIAB.)"
320 [153]"         IN EINEN NEUEN (null)TRING ((null)ARIAB.)
330 PRINT"[211]YNTAX : [195][200][193][206][199][197] /ALTER [211]TRING/NEUER [211]TR/";
340 PRINT"  (Z.[194].: [195][200][193][206][199][197]/[193]$/[194]$/ (=[193]$ ZU [194]$ AEND.)";
350 PRINT"         ([194]EI [193]NZEIGE '[213]' = AENDERN [171][179]"
360 PRINT"         '[195]' = WEITER [171][179] '[211]' = [193]BBRUCH)"
370 PRINT"----------------------------------------";
380 POKE198,0:WAIT198,1:POKE198,0
390 RETURN